inherited f_FormaPgto: Tf_FormaPgto
  Left = 273
  Top = 183
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel [0]
    Left = 56
    Top = 47
    Width = 33
    Height = 13
    Caption = 'C'#243'digo'
  end
  object lbl2: TLabel [1]
    Left = 106
    Top = 47
    Width = 48
    Height = 13
    Caption = 'Descri'#231#227'o'
  end
  object lbl5: TLabel [2]
    Left = 424
    Top = 47
    Width = 46
    Height = 13
    Caption = 'Consolida'
  end
  object lbl6: TLabel [3]
    Left = 488
    Top = 47
    Width = 46
    Height = 13
    Caption = 'Consolida'
  end
  object dbedtID_FAMILIA: TDBEdit [5]
    Left = 56
    Top = 63
    Width = 49
    Height = 21
    TabStop = False
    BevelInner = bvNone
    BevelOuter = bvNone
    Color = clInfoBk
    DataField = 'ID_FORMAPGTO'
    DataSource = DtSrc
    ReadOnly = True
    TabOrder = 1
  end
  object dbedtDESCRICAO: TDBEdit [6]
    Left = 106
    Top = 63
    Width = 317
    Height = 21
    CharCase = ecUpperCase
    DataField = 'FORMAPGTO'
    DataSource = DtSrc
    TabOrder = 2
    OnKeyPress = FormKeyPress
  end
  object dbgrd1: TDBGrid [7]
    Left = 56
    Top = 85
    Width = 489
    Height = 290
    DataSource = DtSrc
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID_FORMAPGTO'
        Title.Caption = 'C'#243'digo'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FORMAPGTO'
        Title.Caption = 'Descri'#231#227'o'
        Width = 285
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CONSOLIDA'
        Title.Caption = 'CONS.'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DIASCONSOLIDA'
        Title.Caption = 'Dias'
        Visible = True
      end>
  end
  object pnl1: TPanel [8]
    Left = 0
    Top = 0
    Width = 604
    Height = 40
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvNone
    Color = 11189162
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    object lbl3: TLabel
      Left = 153
      Top = 8
      Width = 212
      Height = 24
      Caption = 'Formas de Pagamento'
    end
    object lbl4: TLabel
      Left = 155
      Top = 8
      Width = 212
      Height = 24
      Caption = 'Formas de Pagamento'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object dbcbbCONSOLIDA: TDBComboBox [9]
    Left = 425
    Top = 63
    Width = 59
    Height = 21
    DataField = 'CONSOLIDA'
    DataSource = DtSrc
    ItemHeight = 13
    Items.Strings = (
      'SIM'
      'NAO')
    TabOrder = 5
  end
  object JvDBSpinEdit1: TJvDBSpinEdit [10]
    Left = 486
    Top = 63
    Width = 60
    Height = 21
    TabOrder = 6
    DataField = 'DIASCONSOLIDA'
    DataSource = DtSrc
  end
  inherited PopupMenu1: TPopupMenu
    Left = 464
    Top = 160
  end
  inherited DtSrc: TDataSource
    DataSet = ds_formapgto
    Left = 329
    Top = 169
  end
  object s_formapgto: TSQLDataSet
    CommandText = 'select * from FORMAPGTO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.SQLObitos
    Left = 208
    Top = 168
    object s_formapgtoID_FORMAPGTO: TIntegerField
      FieldName = 'ID_FORMAPGTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object s_formapgtoFORMAPGTO: TStringField
      FieldName = 'FORMAPGTO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object s_formapgtoCONSOLIDA: TStringField
      FieldName = 'CONSOLIDA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
    object s_formapgtoDIASCONSOLIDA: TIntegerField
      FieldName = 'DIASCONSOLIDA'
      ProviderFlags = [pfInUpdate]
    end
  end
  object p_formapgto: TDataSetProvider
    DataSet = s_formapgto
    UpdateMode = upWhereKeyOnly
    Left = 248
    Top = 168
  end
  object ds_formapgto: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'p_formapgto'
    Left = 288
    Top = 168
    object ds_formapgtoID_FORMAPGTO: TIntegerField
      FieldName = 'ID_FORMAPGTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ds_formapgtoFORMAPGTO: TStringField
      FieldName = 'FORMAPGTO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object ds_formapgtoCONSOLIDA: TStringField
      FieldName = 'CONSOLIDA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
    object ds_formapgtoDIASCONSOLIDA: TIntegerField
      FieldName = 'DIASCONSOLIDA'
      ProviderFlags = [pfInUpdate]
    end
  end
end
